5 REM --------------------------------
10 REM PROGRAM TO CONVERT
15 REM BETWEEN TWO DIFFERENT
20 REM WEIGHTS AND MEASURES
21 REM
22 REM THE SCREEN GIVES A MENU
23 REM OF VAROIUS MEASURES (EG
24 REM OUNCE, SQUARE FOOT,
25 REM FATHOM).  YOU ARE GIVEN
26 REM THE CHOICES 'FROM' (THE
27 REM UNIT OF MEASURE TO
28 REM CONVERT FROM), 'TO' (THE
29 REM UNIT OF MEASURE TO
30 REM CONVERT TO), AND
31 REM 'QUANTITY' (THE AMOUNT
32 REM TO CONVERT - THE DEFAULT
33 REM IS 1).
34 REM
35 REM
36 REM BY CHARLIE BROWN
37 REM TRANSLATED FOR THE COMMODORE
38 REM BY DONNA K. WOODY
40 REM --------------------------------
45 GOSUB5000
50 LL$="--------------------------------------"
55 LX$="                                      "
100 B1$="[129]                      [146][144]"
110 B2$="[129] [215][197][201][199][200][212][211][160][193][206][196][160][205][197][193][211][213][210][197][211] [146][144]"
120 B3$="[129]      [195][207][206][214][197][210][211][201][207][206]      [146][144]"
130 PRINTCHR$(147):POKE781,3:POKE782,9:SYSS:PRINTB1$
132 POKE781,4:POKE782,9:SYSS:PRINTB2$
134 POKE781,5:POKE782,9:SYSS:PRINTB3$
135 POKE781,6:POKE782,9:SYSS:PRINTB1$
140 POKE781,10:POKE782,15:SYSS:PRINT"1)  [215]EIGHT"
142 POKE781,11:POKE782,15:SYSS:PRINT"2)  [214]OLUME"
144 POKE781,12:POKE782,15:SYSS:PRINT"3)  [204]ENGTH"
146 POKE781,13:POKE782,15:SYSS:PRINT"4)  [193]REA"
148 POKE781,14:POKE782,15:SYSS:PRINT"5)  [210]ATE"
150 POKE781,22:POKE782,1:SYSS:PRINTLL$
160 POKE781,23:POKE782,2:SYSS:PRINT"<*> MOVES TO LAST MENU OR ENDS RUN";
170 POKE781,18:POKE782,15:SYSS:PRINT"[195]HOICE: ";:POKE198,0:WAIT198,1:GETI$
172 IFI$="*"THEN6000
180 I=VAL(I$):IFI<1ORI>5THENPOKE781,16:POKE782,0:SYSS:PRINTLX$:GOTO170
190 ONIGOTO1000,1400,1800,2200,2600
1000 PRINTCHR$(147):POKE781,1:POKE782,11:SYSS:PRINT"* * [215] [197] [201] [199] [200] [212] [211] * *"
1010 POKE781,3:POKE782,3:SYSS:PRINT"[193][214][207][201][210][196][213][208][207][201][211]        [205][197][212][210][201][195]"
1020 POKE781,4:POKE782,1:SYSS:PRINT"[193]) "N1$(1);TAB(20)"[207]) "N1$(15)
1030 POKE781,5:POKE782,1:SYSS:PRINT"[194]) "N1$(2);TAB(20)"[208]) "N1$(16)
1040 POKE781,6:POKE782,1:SYSS:PRINT"[195]) "N1$(3);TAB(20)"[209]) "N1$(17)
1050 POKE781,7:POKE782,1:SYSS:PRINT"[196]) "N1$(4);TAB(20)"[210]) "N1$(18)
1060 POKE781,8:POKE782,1:SYSS:PRINT"[197]) "N1$(5);TAB(20)"[211]) "N1$(19)
1070 POKE781,9:POKE782,1:SYSS:PRINT"[198]) "N1$(6);TAB(20)"[212]) "N1$(20)
1080 POKE781,10:POKE782,1:SYSS:PRINT"[199]) "N1$(7);TAB(20)"[213]) "N1$(21)
1090 POKE781,11:POKE782,3:SYSS:PRINT"[212][210][207][217]";TAB(20)"[214]) "N1$(22)
1100 POKE781,12:POKE782,1:SYSS:PRINT"[200]) "N1$(8);TAB(22)"[207][212][200][197][210]"
1110 POKE781,13:POKE782,1:SYSS:PRINT"[201]) "N1$(9);TAB(20)"[215]) "N1$(23)
1120 POKE781,14:POKE782,1:SYSS:PRINT"[202]) "N1$(10);TAB(20)"[216]) "N1$(24)
1130 POKE781,15:POKE782,3:SYSS:PRINT"[193][208][207][212][200][197][195][193][210][201][197][211]";TAB(20)"[217]) "N1$(25)
1140 POKE781,16:POKE782,1:SYSS:PRINT"[203]) "N1$(11);TAB(20)"[218]) "N1$(26)
1150 POKE781,17:POKE782,1:SYSS:PRINT"[204]) "N1$(12)
1160 POKE781,18:POKE782,1:SYSS:PRINT"[205]) "N1$(13)
1170 POKE781,19:POKE782,1:SYSS:PRINT"[206]) "N1$(14)
1180 POKE781,20:POKE782,1:SYSS:PRINTLL$
1190 GOSUB3000:IFIX=1THEN100
1200 GOSUB4100:IFIX=1THENGOSUB4900:GOTO1190
1210 GOSUB3100:POKE781,23:POKE782,11:SYSS
1215 PRINT"[208][210][197][211][211][160][193] [203][197][217]";:POKE198,0:WAIT198,1:GETXX$:IFXX$="*"THEN100
1220 GOTO1190
1400 PRINTCHR$(147):POKE781,1:POKE782,11:SYSS:PRINT"* * [214][160][207][160][204][160][213][160][205][160][197][160]* *"
1410 POKE781,3:POKE782,1:SYSS:PRINT"[193]) "N2$(1);TAB(22)"[209]) "N2$(17)
1420 POKE781,4:POKE782,1:SYSS:PRINT"[194]) "N2$(2);TAB(22)"[210]) "N2$(18)
1430 POKE781,5:POKE782,1:SYSS:PRINT"[195]) "N2$(3);TAB(22)"[211]) "N2$(19)
1440 POKE781,6:POKE782,1:SYSS:PRINT"[196]) "N2$(4);TAB(22)"[212]) "N2$(20)
1450 POKE781,7:POKE782,1:SYSS:PRINT"[197]) "N2$(5);TAB(22)"[213]) "N2$(21)
1460 POKE781,8:POKE782,1:SYSS:PRINT"[198]) "N2$(6);TAB(22)"[214]) "N2$(22)
1470 POKE781,9:POKE782,1:SYSS:PRINT"[199]) "N2$(7);TAB(22)"[215]) "N2$(23)
1480 POKE781,10:POKE782,1:SYSS:PRINT"[200]) "N2$(8);TAB(22)"[216]) "N2$(24)
1490 POKE781,11:POKE782,1:SYSS:PRINT"[201]) "N2$(9);TAB(22)"[217]) "N2$(25)
1500 POKE781,12:POKE782,1:SYSS:PRINT"[202]) "N2$(10);TAB(22)"[218]) "N2$(26)
1510 POKE781,13:POKE782,1:SYSS:PRINT"[203]) "N2$(11);TAB(22)"1) "N2$(27)
1520 POKE781,14:POKE782,1:SYSS:PRINT"[204]) "N2$(12);TAB(22)"2) "N2$(28)
1530 POKE781,15:POKE782,1:SYSS:PRINT"[205]) "N2$(13);TAB(22)"3) "N2$(29)
1540 POKE781,16:POKE782,1:SYSS:PRINT"[206]) "N2$(14);TAB(22)"4) "N2$(30)
1550 POKE781,17:POKE782,1:SYSS:PRINT"[207]) "N2$(15);TAB(22)"5) "N2$(31)
1560 POKE781,18:POKE782,1:SYSS:PRINT"[208]) "N2$(16)
1570 POKE781,20:POKE782,1:SYSS:PRINTLL$
1580 GOSUB3000:IFIX=1THEN100
1590 GOSUB4200:IFIX=1THENGOSUB4900:GOTO1580
1600 GOSUB3200:POKE781,23:POKE782,11:SYSS
1605 PRINT"[208][210][197][211][211][160][193] [203][197][217]";:POKE198,0:WAIT198,1:GETXX$:IFXX$="*"THEN100
1610 GOTO1580
1800 PRINTCHR$(147):POKE781,1:POKE782,11:SYSS:PRINT"* * [204][160][197][160][206][160][199][160][212][160][200][160]* *"
1810 POKE781,3:POKE782,1:SYSS:PRINT"[193]) "N3$(1);TAB(19)"[207]) "N3$(15)
1820 POKE781,4:POKE782,1:SYSS:PRINT"[194]) "N3$(2);TAB(19)"[208]) "N3$(16)
1830 POKE781,5:POKE782,1:SYSS:PRINT"[195]) "N3$(3);TAB(19)"[209]) "N3$(17)
1840 POKE781,6:POKE782,1:SYSS:PRINT"[196]) "N3$(4);TAB(19)"[210]) "N3$(18)
1850 POKE781,7:POKE782,1:SYSS:PRINT"[197]) "N3$(5);TAB(19)"[211]) "N3$(19)
1860 POKE781,8:POKE782,1:SYSS:PRINT"[198]) "N3$(6);TAB(19)"[212]) "N3$(20)
1870 POKE781,9:POKE782,1:SYSS:PRINT"[199]) "N3$(7);TAB(19)"[213]) "N3$(21)
1880 POKE781,10:POKE782,1:SYSS:PRINT"[200]) "N3$(8);TAB(19)"[214]) "N3$(22)
1890 POKE781,11:POKE782,1:SYSS:PRINT"[201]) "N3$(9);TAB(19)"[215]) "N3$(23)
1900 POKE781,12:POKE782,1:SYSS:PRINT"[202]) "N3$(10);TAB(19)"[216]) "N3$(24)
1910 POKE781,13:POKE782,1:SYSS:PRINT"[203]) "N3$(11);TAB(19)"[217]) "N3$(25)
1920 POKE781,14:POKE782,1:SYSS:PRINT"[204]) "N3$(12);TAB(19)"[218]) "N3$(26)
1930 POKE781,15:POKE782,1:SYSS:PRINT"[205]) "N3$(13);TAB(19)"1) "N3$(27)
1940 POKE781,16:POKE782,1:SYSS:PRINT"[206]) "N3$(14);TAB(19)"2) "N3$(28)
1950 POKE781,20:POKE782,1:SYSS:PRINTLL$
1960 GOSUB3000:IFIX=1THEN100
1970 GOSUB4300:IFIX=1THENGOSUB4900:GOTO1960
1980 GOSUB3300:POKE781,23:POKE782,11:SYSS
1985 PRINT"[208][210][197][211][211][160][193] [203][197][217]";:POKE198,0:WAIT198,1:GETXX$:IFXX$="*"THEN100
1990 GOTO1960
2200 PRINTCHR$(147):POKE781,1:POKE782,15:SYSS:PRINT"* * [193] [210] [197] [193] * *"
2210 POKE781,3:POKE782,1:SYSS:PRINT"[193]) "N4$(1);TAB(20)"[200]) "N4$(8)
2220 POKE781,4:POKE782,1:SYSS:PRINT"[194]) "N4$(2);TAB(20)"[201]) "N4$(9)
2230 POKE781,5:POKE782,1:SYSS:PRINT"[195]) "N4$(3);SPC(5)"[202]) "N4$(10)
2240 POKE781,6:POKE782,1:SYSS:PRINT"[196]) "N4$(4);TAB(20)"[203]) "N4$(11)
2250 POKE781,7:POKE782,1:SYSS:PRINT"[197]) "N4$(5);TAB(20)"[204]) "N4$(12)
2260 POKE781,8:POKE782,1:SYSS:PRINT"[198]) "N4$(6);TAB(20)"[205]) "N4$(13)
2270 POKE781,9:POKE782,1:SYSS:PRINT"[199]) "N4$(7);TAB(20)"[206]) "N4$(14)
2280 POKE781,20:POKE782,1:SYSS:PRINTLL$
2290 GOSUB3000:IFIX=1THEN100
2300 GOSUB4400:IFIX=1THENGOSUB4900:GOTO2290
2310 GOSUB3400:POKE781,23:POKE782,11:SYSS
2315 PRINT"[208][210][197][211][211][160][193] [203][197][217]";:POKE198,0:WAIT198,1:GETXX$:IFXX$="*"THEN100
2320 GOTO2290
2600 PRINTCHR$(147):POKE781,1:POKE782,13:SYSS:PRINT"* * [210] [193] [212] [197] * *"
2610 POKE781,3:POKE782,1:SYSS:PRINT"[193]) "N5$(1);TAB(20)"[199]) "N5$(7)
2620 POKE781,4:POKE782,1:SYSS:PRINT"[194]) "N5$(2);TAB(20)"[200]) "N5$(8)
2630 POKE781,5:POKE782,1:SYSS:PRINT"[195]) "N5$(3);SPC(4)"[201]) "N5$(9)
2640 POKE781,6:POKE782,1:SYSS:PRINT"[196]) "N5$(4);TAB(20)"[202]) "N5$(10)
2650 POKE781,7:POKE782,1:SYSS:PRINT"[197]) "N5$(5);TAB(20)"[203]) "N5$(11)
2660 POKE781,8:POKE782,1:SYSS:PRINT"[198]) "N5$(6);TAB(20)"[204]) "N5$(12)
2670 POKE781,20:POKE782,1:SYSS:PRINTLL$
2680 GOSUB3000:IFIX=1THEN100
2690 GOSUB4500:IFIX=1THENGOSUB4900:GOTO2680
2700 GOSUB3500:POKE781,23:POKE782,11:SYSS
2705 PRINT"[208][210][197][211][211][160][193] [203][197][217]";:POKE198,0:WAIT198,1:GETXX$:IFXX$="*"THEN100
2710 GOTO2680
3000 IX=0:POKE781,21:POKE782,1:SYSS:PRINTLX$+" ":POKE781,22:POKE782,1:SYSS:PRINTLX$
3001 POKE781,23:POKE782,1:SYSS:PRINTLX$
3002 POKE781,21:POKE782,1:SYSS:PRINT"[198]ROM: ";:POKE198,0:WAIT198,1:GETFR$
3004 IFFR$="*"THENIX=1:RETURN
3010 PRINTFR$;
3020 POKE781,21:POKE782,10:SYSS:PRINT"[212]O: ";:POKE198,0:WAIT198,1:GETTT$
3022 IFTT$="*"THENIX=1:RETURN
3030 PRINTTT$;:
3040 POKE781,21:POKE782,20:SYSS:INPUT"[209]UANTITY: ";Q$
3050 IFQ$=""THENQ=1
3060 IFQ$<>""THENQ=VAL(Q$)
3070 RETURN
3100 Z=Q*N1(I)/N1(J):POKE781,21:POKE782,1:SYSS:PRINTLX$
3101 POKE781,21:POKE782,1:SYSS
3102 PRINTQ;" ";N1$(I);" = "
3103 POKE781,22:POKE782,5:SYSS:PRINTZ;" ";N1$(J):RETURN
3200 Z=Q*N2(I)/N2(J):POKE781,21:POKE782,1:SYSS:PRINTLX$
3201 POKE781,21:POKE782,1:SYSS
3202 PRINTQ;" ";N2$(I);" = "
3203 POKE781,22:POKE782,5:SYSS:PRINTZ;" ";N2$(J):RETURN
3300 Z=Q*N3(I)/N3(J):POKE781,21:POKE782,1:SYSS:PRINTLX$
3301 POKE781,21:POKE782,1:SYSS
3302 PRINTQ;" ";N3$(I);" = "
3303 POKE781,22:POKE782,5:SYSS:PRINTZ;" ";N3$(J):RETURN
3400 Z=Q*N4(I)/N4(J):POKE781,21:POKE782,1:SYSS:PRINTLX$
3401 POKE781,21:POKE782,1:SYSS
3402 PRINTQ;" ";N4$(I);" = "
3403 POKE781,22:POKE782,5:SYSS:PRINTZ;" ";N4$(J):RETURN
3500 Z=Q*N5(I)/N5(J):POKE781,21:POKE782,1:SYSS:PRINTLX$
3501 POKE781,21:POKE782,1:SYSS
3502 PRINTQ;" ";N5$(I);" = "
3503 POKE781,22:POKE782,5:SYSS:PRINTZ;" ";N5$(J):RETURN
4100 IX=0:I=ASC(FR$):J=ASC(TT$)
4110 IFI<65ORI>91THENIX=1:RETURN
4120 I=I-64
4130 IFJ<65ORJ>91THENIX=1:RETURN
4140 J=J-64
4150 RETURN
4200 IX=0:I=ASC(FR$):J=ASC(TT$)
4210 IFI<49ORI>91OR(I<65ANDI>53)THENIX=1:RETURN
4220 IFI>64THENI=I-42
4230 I=I-22
4240 IFJ<49ORJ>91OR(J<65ANDJ>53)THENIX=1:RETURN
4250 IFJ>64THENJ=J-42
4260 J=J-22
4270 RETURN
4300 IX=0:I=ASC(FR$):J=ASC(TT$)
4310 IFI<49ORI>91OR(I<65ANDI>50)THENIX=1:RETURN
4320 IFI>64THENI=I-42
4330 I=I-22
4340 IFJ<49ORJ>91OR(J<65ANDJ>50)THENIX=1:RETURN
4350 IFJ>64THENJ=J-42
4360 J=J-22
4370 RETURN
4400 IX=0:I=ASC(FR$):J=ASC(TT$)
4410 IFI<65ORI>78THENIX=1:RETURN
4420 I=I-64
4430 IFJ<65ORJ>78THENIX=1:RETURN
4440 J=J-64
4450 RETURN
4500 IX=0:I=ASC(FR$):J=ASC(TT$)
4510 IFI<65ORI>76THENIX=1:RETURN
4520 I=I-64
4530 IFJ<65ORJ>76THENIX=1:RETURN
4540 J=J-64
4550 RETURN
4900 POKE781,22:POKE782,0:SYSS:PRINTLX$:RETURN
5000 DIMN1$(26),N1(26),N2$(31),N2(31),N3$(28),N3(28),N4$(14),N4(14)
5002 DIMN5$(12),N5(12):S=65520
5003 POKE783,PEEK(783)AND254
5004 POKE53281,7:POKE53280,8:PRINTCHR$(144):POKE53272,23:PRINTCHR$(8)
5010 PRINTCHR$(147):POKE781,5:POKE782,1:SYSS:PRINT"[204]OADING CONVERSION FACTORS"
5012 PRINT:PRINT" [208]LEASE WAIT........."
5020 FORI=1TO26:READN1$(I):NEXT
5030 DATA"[199]RAIN","[196]RAM ([193]VDP.)","[207]UNCE ([193]VDP.)","[208]OUND ([193]VDP.)","[200]UNDREDWEIGHT"
5032 DATA"[212]ON","[204]ONG TON","[208]ENNYWEIGHT","[207]UNCE ([212]ROY)","[208]OUND ([212]ROY)"
5034 DATA"[211]CRUPLE","[196]RAM ([193]POTH.)","[207]UNCE ([193]POTH.)","[208]OUND ([193]POTH.)"
5040 DATA"[205]ILLIGRAM","[195]ENTIGRAM","[196]ECIGRAM","[199]RAM","[196]EKAGRAM","[200]ECTOGRAM"
5042 DATA"[203]ILOGRAM","[205]ETRIC TON","[209]UINTAL","[195]ARAT","[208]OINT","[211]TONE"
5050 FORI=1TO26:READN1(I):NEXT
5060 DATA1,27.34375,437.5,7000,700000,14000000,1568E4,24,480,5760,20,60,480,5760
5062 DATA.0154322,.1543222,1.54322,15.4322,154.322,1543.22,15432.2,15432200
5064 DATA1543220,3.08644,.0308644,98000
5070 FORI=1TO31:READN2$(I):NEXT
5080 DATA"[205]ILLILITER","[195]ENTILITER","[196]ECILITER","[204]ITER","[196]EKALITER","[200]ECTOLITER"
5082 DATA"[203]ILOLITER","[195]UBIC MILLIMETER","[195]UBIC CENTIMETER","[195]UBIC DECIMETER"
5084 DATA"[195]UBIC METER","[211]TERE","[195]ORD","[195]UBIC FOOT","[195]UBIC INCH","[194]OARD FOOT"
5086 DATA"[196]RY PINT","[196]RY QUART"
5090 DATA"[208]ECK","[194]USHEL","[204]IQUID PINT","[204]IQUID QUART","[199]ALLON ([213].[211].)"
5092 DATA"[205]INIM","[199]ILL","[198]LUID DRAM","[198]LUID OUNCE","[199]ALLON ([194]RIT.)"
5094 DATA"[212]ABLESPOON","[212]EASPOON","[195]UP"
5100 FORI=1TO31:READN2(I):NEXT
5110 DATA.001,.01,.1,1,10,100,1000,.000001,.001,1,1000,1000,3624.5376,28.3167
5112 DATA.0163869792,2.35972501,.55066,1.10132,8.81056,35.24224,.4731712
5120 DATA.9463424,3.7853696,.0000616108333,.1182928,.00369665,.0295732
5122 DATA4.546,.0147866,.00492886667,.2365856
5130 FORI=1TO28:READN3$(I):NEXT
5140 DATA"[201]NCH","[198]OOT","[217]ARD","[210]OD","[198]URLONG","[205]ILE","[204]EAGUE","[195]ABLE'S LENGTH"
5142 DATA"[195]HAIN","[204]INK","[198]ATHOM","[195]UBIT","[200]AND","[211]PAN","[206]AUTICAL MILE"
5144 DATA"[193]NGSTROM","[205]ICRON","[205]IL"
5150 DATA"[205]ILLIMETER","[195]ENTIMETER","[196]ECIMETER","[205]ETER","[196]EKAMETER"
5152 DATA"[200]ECTOMETER","[203]ILOMETER","[193]STRONOMICAL UNIT","[204]IGHT YEAR","[208]ARSEC"
5160 FORI=1TO28:READN3(I):NEXT
5170 DATA.08333333333,1,3,16.5,660,5280,15830,720,66,.66,6,.6666666666667
5172 DATA.333333333333,.75,6076.1155,.00000000032808,.0000032808
5174 DATA.0000833333333,.0032808,.032808,.32808,3.2808,32.808,328.08
5176 DATA3280.8,8.491040000000
5180 DATA31046400000000000,101211264000000000
5190 FORI=1TO14:READN4$(I):NEXT
5200 DATA"[211]QUARE INCH","[211]QUARE FOOT","[211]QUARE YARD","[211]QUARE ROD","[193]CRE"
5202 DATA"[211]QUARE MILE","[211]ECTION","[212]OWNSHIP","[211]QUARE MILLIMETER"
5204 DATA"[211]QUARE CENTIMETER","[211]QUARE METER","[193]RE","[200]ECTARE","[211]QUARE KILOMETER"
5210 FORI=1TO14:READN4(I):NEXT
5220 DATA.000000159422508,.0000229568411,.00029661157,.00625,1,640,640
5222 DATA23040,.0000000002471,.00000002471,.0002471,.02471,2.471,247.1
5230 FORI=1TO12:READN5$(I):NEXT
5240 DATA"[205]ILES/HOUR","[205]ILES/MINUTE","[205]ILES/SECOND","[198]EET/HOUR","[198]EET/MINUTE"
5242 DATA"[198]EET/SECOND","[203]ILOMETERS/HOUR","[203]ILOMETERS/MINUTE","[203]ILOMETERS/SECOND"
5244 DATA"[205]ETERS/HOUR","[205]ETERS/MINUTE","[205]ETERS/SECOND"
5250 FORI=1TO12:READN5(I):NEXT
5260 DATA1,60,3600,.0001893939394,.01136363636,.681818182,.62150404
5262 DATA37.2902424,2237.414545,.00062150404,.0372902424,2.237414545
5270 RETURN
6000 PRINTCHR$(147):POKE781,10:POKE782,15:SYSS
6010 PRINT"            ":POKE781,11:POKE782,15:SYSS:PRINT" [197]ND OF RUN. "
6020 POKE781,12:POKE782,15:SYSS:PRINT"           "
6040 REM ********** END ***************
6050 REM ********** END ***************
63000 REM     LINK BACK
63010 PRINT"[147]LOAD"CHR$(34)"PAYLOAD"CHR$(34)",8":PRINT"RUN"
63020 POKE198,0:POKE631,13:POKE632,13:POKE198,2:END